home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
adial.arc
/
AUTODIAL.XWS
next >
Wrap
Text File
|
1990-07-19
|
1KB
|
51 lines
/*
Autodialer Script
by Steven Kieffer [72027,2532]
7/15/1990
*/
integer phone1, phone2, phone3, phone4, phone5, counter, repeat_inf
integer repeat_ten
trap on
repeat_ten is true
dialogbox 34,23,130,125
ltext 4,4,120,10,"AUTODIALER by Steven Kieffer"
groupbox 8,20,70,75,"Phone choices:"
checkbox 12,32,50,12,arg(1),phone1,tabstop focus
checkbox 12,44,50,12,arg(2),phone2,tabstop
checkbox 12,56,50,12,arg(3),phone3,tabstop
checkbox 12,68,50,12,arg(4),phone4,tabstop
checkbox 12,80,50,12,arg(5),phone5,tabstop
radiobutton 12,100,90,10,"Repeat infinitely",repeat_inf,tabstop group
radiobutton 12,110,90,10,"Repeat 10 times",repeat_ten
defpushbutton 85,32,36,14,"OK",ok,tabstop group
pushbutton 85,52,36,14,"CANCEL",cancel,tabstop
enddialog
IF CHOICE IS 2 THEN END
if null(arg(1)) then alarm : alert "No phone numbers to dial !!!",ok : end
repeat
if repeat_ten is true then counter=counter+1
if phone1 is true then call arg(1)
if phone2 is true then call arg(2)
if phone3 is true then call arg(3)
if phone4 is true then call arg(4)
if phone5 is true then call arg(5)
until counter is 10
counter is 0
repeat
counter=counter plus 1
alarm:alarm:alarm
wait 1 second
until counter is 3
alert "Autodial completed. No connections made.",ok
end